home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #6 / Amiga Plus CD - 2004 - No. 06.iso / AmiSoft / Util / libs / ExtraLib.lha / Extra / Demos / AlertDemo.BAS < prev    next >
BASIC Source File  |  2004-05-30  |  3KB  |  72 lines
  1. ' ___________________________________________________________________________
  2. ' |*************************************************************************|
  3. ' |*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|
  4. ' |*| Set TAB to 4 for best readable file layout.  |*|  Maxon Basic 3.00  |*|
  5. ' |*|______________________________________________|*|____________________|*|
  6. ' |*************************************************************************|
  7. ' |*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|*|
  8. ' |*|               |*|  $Id: AlertDemo.BAS (07.10.03)                    |*|
  9. ' |*| ###### ###### |*|  RhoSigma Source based on NDK 3.1 Includes 40.15  |*|
  10. ' |*| ##  ## ##   # |*| _________________________________________________ |*|
  11. ' |*| ##  ##  ##    |*|                                                   |*|
  12. ' |*| ######   ##   |*|  Demo to show use of DATEXT-SUB (settings.bc)     |*|
  13. ' |*| ##      ##    |*|                                                   |*|
  14. ' |*| ##     ##   # |*| ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ |*|
  15. ' |*| ##     ###### |*|  Copyright © 1998-2002 RhoSigma, Roland Heyder    |*|
  16. ' |*|               |*|  All Rights Reserved.                             |*|
  17. ' |*|_______________|*|___________________________________________________|*|
  18. ' |*************************************************************************|
  19. ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  20.  
  21. '$TO        AlertDemoBAS
  22. '$ICONS
  23. '$NOLIBRARY
  24. '$NOWINDOW
  25.  
  26. '$INCLUDE    intuition.bh
  27. '$INCLUDE    exec.bc
  28. '$INCLUDE    settings.bc
  29.  
  30. DATA "$VER: AlertDemoBAS 4.215 (07.10.03)"
  31.  
  32. LIBRARY OPEN "intuition"
  33.  
  34. DATEXT 100,12,"linke Seite",FALSE&        ' END-Flag FALSE (kein Ende)
  35. DATEXT 444,12,"rechte Seite",FALSE&     ' absolute X-Koordinaten
  36. DATEXT DATPOS_C%,22,"zentriert",FALSE&    ' END-Flag FALSE, zentriert
  37. DATEXT DATPOS_C%,32,"Ende",TRUE&        ' END-Flag TRUE (Ende), zentriert
  38. ok&=DisplayAlert&(0&,SADD(daAlert$),40&)
  39.  
  40. DATEXT 112,12,"Oder",FALSE&
  41. DATEXT 212,12,"alles",FALSE&
  42. DATEXT 312,12,"in",FALSE&
  43. DATEXT 412,12,"einer",FALSE&
  44. DATEXT 512,12,"Zeile !!",TRUE&
  45. ok&=DisplayAlert&(0&,SADD(daAlert$),20&)
  46.  
  47. DATEXT DATPOS_C%,12,"Oder",FALSE&
  48. DATEXT DATPOS_C%,22,"alles",FALSE&
  49. DATEXT DATPOS_C%,32,"zentriert",FALSE&
  50. DATEXT DATPOS_C%,42,"!!",TRUE&
  51. ok&=DisplayAlert&(0&,SADD(daAlert$),50&)
  52.  
  53. DATEXT DATPOS_L%,12,"linksbündig",FALSE&
  54. DATEXT DATPOS_C%,12,"zentriert",FALSE&
  55. DATEXT DATPOS_R%,12,"rechtsbündig",FALSE&
  56. DATEXT 200,22,"absolute X-Pos 200 v.l.",TRUE&
  57. ok&=DisplayAlert&(0&,SADD(daAlert$),30&)
  58.  
  59. OPEN "I",#1,"S:PCD"                    ' Diese Anwendung sollte man jedoch
  60. y%=12                                ' mit Vorsicht genießen, da einiges
  61. WHILE NOT EOF(1)                    ' schiefgehen kann, wenn die Datei
  62.     LINE INPUT #1,l$                ' größer als eine Bildschirmseite ist
  63.     DATEXT DATPOS_L%,y%,l$,EOF(1)    ' oder Zeilen enthält, die breiter
  64.     y%=y%+10                        ' als 80 Zeichen sind !!
  65. WEND
  66. CLOSE #1
  67. y%=y%+8
  68. ok&=DisplayAlert&(0&,SADD(daAlert$),y%)
  69.  
  70. LIBRARY CLOSE
  71. END
  72.